-- card: 2951 from stack: in.0 еее
-- bmap block id: 28825
-- flags: 0000
-- background id: 2604
-- name: Title Card


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=248 right=287 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help1
----- HyperTalk script -----
on mouseUp
  set userlevel to 1
  visual effect wipe left
  go to card id 3676
end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=450 top=207 right=247 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About2
----- HyperTalk script -----
on mouseUp
  show card field id 4 of card id 2951
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=136 top=105 right=285 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseup
  hide the target
end mouseup



-- part 6 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=232 top=305 right=327 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TAO!
----- HyperTalk script -----
on mouseUp
  answer "Have you thought out your question?" with "No" or "Yes"
  if it is "Yes" then
    answer "Your Hexagram will now be generated." with "OK"
  else
    answer "Please think out your question first." with "Ok"
    exit mouseup
  end if
  put the random of (64) into x
  Go to card "Hex" & x
  put the random of (6) into field "Change Number"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=450 top=288 right=320 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home1
----- HyperTalk script -----
on mouseUp
  set userlevel to 2
  click at loc of card field "Hello"
  type "Thank You for using the I Ching."
  wait 2 seconds
  delete line one in card field "Hello"
  click at loc of card field "Hello"
  type "Tao!"
  wait 1 seconds
  delete line one in card field "Hello"
  visual effect dissolve
  go home
  show menubar
end mouseUp



-- part 12 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=120 top=63 right=81 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Hello


-- part contents for card part 4
----- text -----

 I-CHING 
 Version 1.0

This is FreeWare.
 Feel free to give it, or throw it away.
But don't sell or modify it.

 Copyright © 1987
All Rights are Reserved.
 Mutant Machinations ™